|
|  BoxFan
|  Written by Ph. DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "Box Fan"

  FLAGS  ClickFly AutoFly AnimateFly
  PACKS  1
  WIDTH  16 * CW
  HEIGHT CH + CH + 3 * COH + 12 * COH

  ZeroToWin 52 - CARDSIN$2

  FOR stack = 0 TO 3
    FOUNDATION
      X 3 * CW + 3 * stack * CW 
      Y 0
      DEAL 1, 1
      DEALCARD x1
      ID 2
    END
  END

  FOR stack = 0 TO 15
    STACK
      X stack * CW
      Y CH
      FIRST 13
      JOINOFFSET -1
      DRAGUPTO 1
      DEAL 3,1
      FLAGS ClickFly Join__DC AppendOneOnly
      ID 1
    END
  END

END
